home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zd.d64 / lst.delink < prev    next >
Text File  |  2007-03-01  |  3KB  |  126 lines
  1. 0010 // ─┼╠┼╘┼ "LST.DELINK"
  2. 0020 // ╠╔╙╘   "LST.DELINK"
  3. 0030 
  4. 0040 //  BY ─ICK ╦LINGENS - NOV85
  5. 0050 //  ─UTCH ├╧═┴╠ ╒SERS ╟ROUP
  6. 0060 
  7. 0070 ╒╙┼ SYSTEM
  8. 0080 
  9. 0090 INFO
  10. 0100 
  11. 0110 LIBLO:=$C7F0
  12. 0120 LIBHI:=$C7FA
  13. 0130 LIBPAG:=$C804
  14. 0140 LIBPT:=$C7EF //    LIBRARY POINTER
  15. 0150 
  16. 0160 NLIB:=╨┼┼╦(LIBPT)
  17. 0170 //             NUMBER OF LIBRARIES
  18. 0180 SHOWñNAMES
  19. 0190 
  20. 0200 CHOICE(NUM)
  21. 0210 
  22. 0220 LO:=╨┼┼╦(LIBLO+NUM-1)
  23. 0230 HI:=╨┼┼╦(LIBHI+NUM-1)
  24. 0240 PAG:=╨┼┼╦(LIBPAG+NUM-1)
  25. 0250 //          LIBRARY IS ON PAGE PAG
  26. 0260 SETPAGE(PAG)
  27. 0270 
  28. 0280 ADñSTART:=LO+256*HI
  29. 0290 ADñEND:=╨┼┼╦(ADñSTART+1)+256*╨┼┼╦(ADñSTART+2)
  30. 0300 //             START & END ADDRESS
  31. 0310 
  32. 0320 MAKEñFILE(ADñSTART,ADñEND)
  33. 0330 
  34. 0340 ┼╬─ " ─ONE"
  35. 0350 
  36. 0360 ╨╥╧├ SHOWñNAMES 
  37. 0370   ╨╥╔╬╘ 
  38. 0380   ╨╥╔╬╘ " ─┼╠╔╬╦"
  39. 0390   ╨╥╔╬╘ 
  40. 0400   ╨╥╔╬╘ " ╨ACKAGES IN MEMORY ARE:"
  41. 0410   ╨╥╔╬╘ 
  42. 0420   ╞╧╥ T:=1 ╘╧ NLIB ─╧
  43. 0430     LO:=╨┼┼╦(LIBLO+T-1)
  44. 0440     HI:=╨┼┼╦(LIBHI+T-1)
  45. 0450     START:=LO+256*HI
  46. 0460     PAG:=╨┼┼╦(LIBPAG+T-1)
  47. 0470     SETPAGE(PAG)
  48. 0480     ╨╥╔╬╘ ╒╙╔╬╟ " ##) ": T,
  49. 0490     ╨╥╔╬╘ NAME$(START)
  50. 0500   ┼╬─╞╧╥ T
  51. 0510 ┼╬─╨╥╧├ SHOWñNAMES
  52. 0520 
  53. 0530 ╞╒╬├ NAME$(X) ├╠╧╙┼─
  54. 0540   L:=╨┼┼╦(X+5)
  55. 0550   //         LENGTH OF PACKAGE NAME
  56. 0560   ─╔═ R$ ╧╞ L
  57. 0570   ╞╧╥ T:=1 ╘╧ L ─╧
  58. 0580     R$:+├╚╥$(╨┼┼╦(X+5+T))
  59. 0590   ┼╬─╞╧╥ T
  60. 0600   ╥┼╘╒╥╬ R$
  61. 0610 ┼╬─╞╒╬├ NAME$
  62. 0620 
  63. 0630 ╨╥╧├ CHOICE(╥┼╞ NUM) ├╠╧╙┼─
  64. 0640   ╔═╨╧╥╘ NLIB,CURROW,CURCOL
  65. 0650   ╨╥╔╬╘ 
  66. 0660   X:=CURROW; Y:=CURCOL
  67. 0670   ╥┼╨┼┴╘ 
  68. 0680     ╔╬╨╒╘ ┴╘ X,Y,2: " ╘YPE NUMBER: ": NUM
  69. 0690   ╒╬╘╔╠ NUM>=0 ┴╬─ NUM<=NLIB
  70. 0700   ╔╞ NUM=0 ╘╚┼╬ ┼╬─ " ┼ND OF PROGRAM"
  71. 0710 ┼╬─╨╥╧├ CHOICE
  72. 0720 
  73. 0730 ╨╥╧├ MAKEñFILE(FROM,TO') ├╠╧╙┼─
  74. 0740   ╔═╨╧╥╘ CURROW,CURCOL
  75. 0750   ─╔═ F$ ╧╞ 16
  76. 0760   ╨╥╔╬╘ 
  77. 0770   X:=CURROW; Y:=CURCOL
  78. 0780   ╥┼╨┼┴╘ 
  79. 0790     ╔╬╨╒╘ ┴╘ X,Y,12: " ╞ILENAME: BIN.": F$
  80. 0800   ╒╬╘╔╠ F$<>""
  81. 0810   
  82. 0820   F$:="BIN."+F$
  83. 0830   
  84. 0840   ╨╥╔╬╘ 
  85. 0850   ╨╥╔╬╘ " ╫ORKING..."
  86. 0860   ─┼╠┼╘┼ F$
  87. 0870   ╧╨┼╬ ╞╔╠┼ 1,F$+",P",╫╥╔╘┼
  88. 0880   
  89. 0890   ╨╥╔╬╘ ╞╔╠┼ 1: ├╚╥$(FROM ═╧─ 256),
  90. 0900   ╨╥╔╬╘ ╞╔╠┼ 1: ├╚╥$(FROM ─╔╓ 256),
  91. 0910   //    START ADRESS OF THE PACKAGE
  92. 0920   
  93. 0930   // MEMORY IMAGE:
  94. 0940   ╞╧╥ T:=FROM ╘╧ TO'-1 ─╧
  95. 0950     ╨╥╔╬╘ ╞╔╠┼ 1: ├╚╥$(╨┼┼╦(T)),
  96. 0960   ┼╬─╞╧╥ T
  97. 0970   ├╠╧╙┼
  98. 0980 ┼╬─╨╥╧├ MAKEñFILE
  99. 0990 
  100. 1000 ╨╥╧├ INFO 
  101. 1010   ╨┴╟┼
  102. 1020   ╨╥╔╬╘ " ─┼╠╔╬╦"
  103. 1030   ╨╥╔╬╘ 
  104. 1040   ╨╥╔╬╘ " ╘HIS PROGRAM DE╠╔╬╦S A PACKAGE THAT"
  105. 1050   ╨╥╔╬╘ " IS LINKED AT ANOTHER PROGRAM."
  106. 1060   ╨╥╔╬╘ 
  107. 1070   ╨╥╔╬╘ " ╞IRST ╠╧┴─ THAT PROGRAM AND TYPE:"
  108. 1080   ╨╥╔╬╘ "   ─┼╠-"
  109. 1090   ╨╥╔╬╘ "   ═┼╥╟┼ ""LST.DELINK"""
  110. 1100   ╨╥╔╬╘ "   ╥╒╬"
  111. 1110   ╨╥╔╬╘ 
  112. 1120   ╨╥╔╬╘ " ╘HEN THE PACKAGE IS IN A BINARY FILE."
  113. 1130   ╨╥╔╬╘ " ╔T IS A MEMORY IMAGE OF THE PACKAGE."
  114. 1140   ╨╥╔╬╘ 
  115. 1150   ╨╥╔╬╘ " ╒SE A PROGRAM SUCH AS"
  116. 1160   ╨╥╔╬╘ "    MAKE'OBJECT'FILE"
  117. 1170   ╨╥╔╬╘ " TO CREATE A PACKAGE ╠╔╬╦ FILE."
  118. 1180   
  119. 1190   ╨╥╔╬╘ 
  120. 1200   ╨╥╔╬╘ " *** ╘YPE ANY KEY TO CONTINUE OR   ***"
  121. 1210   ╨╥╔╬╘ " ***                 ┼╙├ TO STOP   ***"
  122. 1220   ╫╚╔╠┼ ╦┼┘$<>""0"" ─╧ ╬╒╠╠
  123. 1230   ╫╚╔╠┼ ╦┼┘$=""0"" ─╧ ╬╒╠╠
  124. 1240   ╨┴╟┼
  125. 1250 ┼╬─╨╥╧├ INFO
  126.